home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / pcpil / sample5.pil < prev    next >
Text File  |  1979-12-31  |  3KB  |  310 lines
  1. R: AUTOPI - Show off PILOT ease of use
  2.  
  3. R: INITIALIZATION - SET UP VIEWPORT CMDS
  4. D:VLIST$(26),VTALK$(26),VTERM$(26),ANS$(20)
  5. C:VLIST$="TS:V2,23,2,10;F3;B0"
  6. C:VTALK$="TS:V27,37,2,7;F2;B0"
  7. C:VTERM$="TS:V14,35,15,22;F5;B0"
  8.  
  9. R: SET SCREEN MODE AND DO INTRO
  10. TS:M1;E1;V4,35,6,20;F2;B0
  11. TX:
  12. T: This sample shows you a very
  13. T:
  14. T: simple  PILOT  program, and
  15. T:
  16. T: explains how it works. It will
  17. T:
  18. T: give you an idea of how easy
  19. T:
  20. T: it is to create a program.
  21. T:
  22. T:
  23. TH:                   (push a key)
  24.  
  25. AS:
  26. TX:   
  27. T:    
  28. T:      To run this demo 
  29. T:
  30. T:   just keep on pushing the
  31. T:
  32. TS:F1
  33. T:          SPACE BAR
  34. TS:F2
  35. T:
  36. T: each time you are ready for
  37. T:
  38. TH:  the next thing to happen.
  39.  
  40. AS:
  41. TS:V;B1
  42. TX:
  43. TS:V1,24,1,11;B0;F7
  44. TXH:      Listing
  45. X:VLIST$
  46. T:
  47. :
  48. :The program is
  49. :
  50. : listed here
  51.  
  52. AS:
  53. TS:V26,38,1,8;B0;F7
  54. TXH:   Remarks
  55. X:VTALK$
  56. T:
  57. : Comments
  58. :
  59. :shown here
  60.  
  61. AS:
  62. TS:V13,36,14,23;B0;F7
  63. TXH:       Terminal
  64. X:VTERM$
  65. T:
  66. :This is a picture of
  67. : 
  68. : the screen as the
  69. :
  70. :  student runs the
  71. :
  72. TH:      program     
  73.  
  74. AS:
  75. X:VTERM$
  76. TX:
  77. X:VLIST$
  78. TX:
  79. X:VTALK$
  80. TX:
  81. T: Here's the
  82. :  program
  83.  
  84. X:VLIST$
  85. W:10
  86. TX:
  87. T:T:Who wrote 
  88. W:8
  89. T::"The Odyssey"?
  90. W:8
  91. T:A:
  92. W:8
  93. T:M:HOMER
  94. W:8
  95. T:TY:Right.       
  96. W:8
  97. T:TN:No, try again.
  98. W:8
  99. TH:J:@A
  100.  
  101. AS:
  102. X:VTALK$
  103. TX:
  104. :Watch it
  105. :
  106. :  run.
  107.  
  108. AS:
  109. X:VLIST$
  110. TS:G0,1;F4
  111. T:T:Who wrote
  112. ::"The Odyssey"?
  113. X:VTALK$
  114. TX:
  115. T:T: means
  116. :TYPE text.
  117. :
  118. : : means
  119. TH:more text
  120.  
  121. W:15
  122. X:VTERM$
  123. T:Who wrote
  124. :"The Odyssey?"
  125.  
  126. W:20000
  127. X:VLIST$
  128. TS:G0,1
  129. T:T:Who wrote
  130. ::"The Odyssey"?
  131. TS:F4
  132. T:A:
  133. X:VTALK$
  134. TX:
  135. T:A: means
  136. :
  137. :ACCEPT an
  138. :
  139. TH:answer
  140.  
  141. W:20000
  142. TX:Student
  143. :
  144. :now types
  145. : 
  146. :answer...
  147.  
  148. X:VTERM$
  149. TS:G0,2
  150. C:ANS$="It was Plato"
  151. U:EXACT
  152.  
  153. W:20000
  154. X:VLIST$
  155. TS:G0,3
  156. T:A:
  157. TS:F4
  158. T:M:HOMER
  159. X:VTALK$
  160. TX:M: means
  161. :
  162. :  MATCH 
  163. :  
  164. :Result is
  165. TH:    NO
  166.  
  167. AS:
  168. X:VLIST$
  169. TS:G0,4
  170. T:M:HOMER
  171. TS:F4
  172. T:TY:Right.
  173. X:VTALK$
  174. TX:
  175. T:TY: means
  176. :TYPE if YES
  177. :so it is
  178. TH:skipped
  179.  
  180. AS:
  181. X:VLIST$
  182. TS:G0,5
  183. T:TY:Right.
  184. TS:F4
  185. T:TN:No, try again.
  186. X:VTALK$
  187. TX:TN: means
  188. :TYPE if NO
  189. :
  190. :so it is
  191. TH:typed.
  192.  
  193. W:10
  194. X:VTERM$
  195. TS:G0,3
  196. T:No, try again.
  197.  
  198. AS:
  199. X:VLIST$
  200. TS:G0,6
  201. T:TN:No, try again.
  202. TS:F4
  203. T:J:@A
  204. X:VTALK$
  205. TX:
  206. T:J:@A means
  207. :
  208. :JUMP to
  209. :
  210. TH:the ACCEPT
  211.  
  212. AS:
  213. X:VLIST$
  214. TS:G0,7
  215. T:J:@A
  216. TS:G0,3
  217. TS:F4
  218. T:A:
  219. X:VTALK$
  220. TX:
  221. :ACCEPT is
  222. :
  223. :done again
  224.  
  225. W:20000
  226. TX:Student
  227. :
  228. :now types
  229. : 
  230. :answer...
  231. X:VTERM$
  232. TS:G0,3
  233. C:ANS$="How about HOMER"
  234. TS:G0,4
  235. U:EXACT
  236.  
  237. W:20000
  238. X:VLIST$
  239. TS:G0,3
  240. T:A:
  241. TS:F4
  242. T:M:HOMER
  243. X:VTALK$
  244. TX:  MATCH
  245. :done again
  246. :
  247. :result is
  248. :   YES
  249. TH:this time
  250.  
  251. W:20000
  252. X:VLIST$
  253. TS:G0,4
  254. T:M:HOMER
  255. TS:F4
  256. T:TY:Right.
  257. X:VTALK$
  258. TX:TY: means
  259. :
  260. :TYPE if YES
  261. TH:so it does.
  262.  
  263. W:10
  264. X:VTERM$
  265. TS:G0,5
  266. T:Right.
  267.  
  268. W:20000
  269. X:VLIST$
  270. TS:G0,5
  271. T:TY:Right.
  272. X:VTALK$
  273. TX:   And
  274. :   so
  275. :   on...
  276. AS:
  277.  
  278. TS:M1;E1;V4,35,6,20;F2;B0
  279. TX:
  280. T: Though this was a very simple
  281. T:
  282. T: example, it should have given
  283. T:
  284. T: you the basic idea of how easy
  285. T:
  286. T: it is to get started with
  287. T:
  288. TH:    PILOT  programming.
  289. AS:
  290. J:END
  291.  
  292. R: subroutine to pretend student
  293. R: has replied as expected...
  294. R: the second number on the S:
  295. R: determines the speed.
  296.  
  297. *EXACT C:L=LEN(ANS$)
  298. TS:F4
  299. C:I=1 
  300. *E1 S:0,4;100,0
  301. TH:#(ANS$(I))
  302. C:I=I+1
  303. J(I<=L):E1
  304. *E2 S:0,4;200,0
  305. T:
  306. E:
  307.  
  308. *END TS:f7;b0;m2
  309. E:
  310.